home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / rpgf_pc2.exe / TSTOUT.RPF < prev    next >
Text File  |  1991-01-31  |  816b  |  34 lines
  1. /HEADER
  2. H* TSTIN.RPG -- Test standard RPG input file
  3. H*
  4. H* Note this is not a compilable RPG III program
  5. H* It just generates a file for comparison with TSTOUT.RPF
  6. /FILE
  7. F*
  8. FDAINFO  IF  F     132            DISK
  9. FMODDTA  CF  E                    WORKSTN
  10. F                                        RRN1  KSFILE SFLREC1
  11. F                                              KINFDS WRKSTN
  12. F*
  13. /INPUT
  14. I* Data area information file (4 record types)
  15. IDAINFO  NS  21   1 CR   5 CM
  16. I                                       15  35 DAQNAM
  17. I
  18. /CALC
  19. y = 4
  20. FOR    x = 4    1
  21.     IF    wrk1,x <> ' '
  22.         MOVE    wrk1,x    wrk2,y    --Move the element
  23.         y = y - 1
  24.     ENDIF
  25. ENDFOR    -1
  26. SETON    RESULT(01 02 03)
  27. READPE    *N    filea    RI2(98) RI3(99)
  28. UPDATE    filea
  29. /DATA
  30. **
  31. CHGDTAARA  DTAARA(                     (       )) VALUE('
  32. **
  33. |END|********
  34.